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IBM EDITOR 


DECUS Program Library Write-up DECUS No. 8-266 


ABSTRACT 

This program provides editing service and 3000 ^q character storage for text from an IBM 2741 

terminal. In the present version, it also provides for punched paper tape storage of materials 
to be listed on the 2741. 

The program permits the following operations: (1) correction of text by backspacing over the 
error and entering the correct character; (2) correction of a line of text by calling back the 
line; (3) an unlimited number of listings of text stored in the buffer; (4) paper tape output. 

Pecularities of the 2741 terminal, including time delays for data control transfer and carriage 
travel after tabulation and carriage return have been accommodated in the program. 

LOADING AND SAVING 

The program loads into locations 0020 through 0777, and expects to be able to use the re¬ 
mainder of core (through 6777) as a text buffer. Starting address is 0200. 

INITIALIZING 

If the program starts properly, it will cause 0000 to be sent to the TTY, causing an audible 
shift of the type-drum. It then waits for a carriage return from the IBM terminal. 

When the carriage return is received, the program will cause the terminal to prompt the user 
with PROCEED. 

COMMANDS TO THE EDITOR 

There are three Editor commands: (1) backspace; (2) $ J,and (3) NN$ J,, where a carriage 
return is indicated by . 

(1) The backspace is used to correct the current line of text. If an error is made and caught 

by the user prior to moving on to a new text line, he may backspace to the error, correct it, and 
retype the rest of the line to the right of the error. 

(2) The $ ^, is used to LIST the entire text buffer. After a listing is complete, the user may 
append new text, may request another listing, or may correct a given line of text. The $ ^ is 
invisible to the text buffer. 

(3) The NN$^. command causes the program to search the buffer for the line of text specified 
by NN. (Note, the lines must be specified with two digits, 00 through 99.) The specified line 
of text will be listed on the terminal, and the entire line must be retyped, presumably in correct 












form. Up to five (5) additional characters may be added to the length of the line. The line 
may be shortened, of course, to'less than the original length. 

OVERFLOW 

If the buffer capacity is exceeded while the user is entering a line, the Editor will cause a O 
(for "Overflow") to be typed by the 2741 just after the user terminates his current line with a 
carriage return. The program then waits for another carriage return. When this is received, the 
program lists the entire buffer contents. After the listing, the buffer may still be corrected 
through the use of the line-correction command, NN$ . In addition, new text may be 
appended, but at the risk of overlaying the program with text characters (resulting in a program 

disabling consequence). 


PAPER TAPE OUTPUT 

When listing buffer contents, the program continuously searches the switch register. If bit 
11=1, (and the TTY and punch are on) the IBM-compatible codes will be punched in a 7-bit 
configuration on the TTY. 


SOME EXAMPLES (Output from the computer is underlined. ) 
PROCEED .(backspace) 

The PDP-12 has a complete line of peripherals identical to those... 

$a 

The PDP-12 has a complete line of peripherals identical to those ... 

(new text may be appended here without additional commands) 



PROCEED 

The PDP-12 has a complete line of peripherals identical to those offered for Digital 
corporations PDP-8/1 and PDP-8/L. Included are two reandom access DECdisks, 
speech paper tape reader and punch, synchronous and incremental IBM-compatible. 

02 $ 0 . 

offered for Digital Equipment corporations PDP-8/1 and PDP-8/L. 

offered for Digital Equipment Corporation's PDP-8/1 and PDP-8/L. 

03$ 0. 

Included are two reandom access DECdisks, and high-speech paper 

Included are two random access DECdisks, a high-speed paper 

$ i 

The PDP-12 has a complete line of peripherals identical to those offered for D igital Equipment 

Corporation's PDP-8/1 and PDP-8/L. Included are two random access DECdisks, a high-speed 

paper tape reader and punch, synchronous and incremental IBM-compatible... 

(new text may be added here) 


Equipment 
and high— 
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Decuscope: Page 3 


(200) START, 

CLR FLGS 

WAIT FOR CARRIAGE RETURN 
PROMPT USER ("PROCEED") 

(217) CH, - 

UNLOCK KEYBOARD 


(223) GET, 

GET A CHARACTER 
PUT CHTR. IN BUFFER 

(100) TEST, 

TEST THE CHTR. 


YES ,— 
(400) 


BACKSPACE 7- 

■CARRIAGE RETURN? 
INCREMENT COUNTERS 

OVERFLOW?--YES 

JMP TO GET 


1 


YES—j 
<230) 


(276) 


(326) 

-(337) 

YESi- 

i- ~^L _ 

SEND CHTR. 
DELAY 

i_l- 


IGO TO 337) 


OVER, 

WAIT FOR C. RETURN 
PROMPT USER ("0") 

WAIT FOR C. RETURN 

PUT, ^ 

SET COUNTERS 
GET A CHTR 

IS CHTR = 0064 ?—YES—j 
•CARRIAGE RETURN? NO PRINT 

TAB ? I- 

PRINT CHTR. 

-BIT 11= I?-YES--1 

_PUNCH ON TTY 

UPDATE COUNTER--- 

DONE ? YES- LfijQ—TO %I7) 

• NO 


Figure 1. IBM Editor Flowchart. Numbers in parentheses refer to 
core locations. 
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Decuscope: Page 4 


I-YES 

I «a " 


( 230) CORR, 

CLEAR BACKSPACE FROM BUFFER 

SET COUNT BACK (CLEAR PRECEDING CHTR) 

LOOK AT PRECEDING CHTR. 

L.CASE ?- 

U. CASE?-YES 


CLEAR 3 ,, IDLE"CODES 
& a RETURN 


-NEW LINE? 

LOOK 2 PLACES BACK 

U.CASE ?-YES—| 

CLEAR UC. 


4 - 


J. 



YES—j 

CLEAR CHTR. 
CLEAR U.C. BEFORE 
THE CHTR. 


RETURN TO PGM (223) 


(400) 


(417) 


(441) 
(547) 


CARR, • 

CLEAR E.O.T. CODE 

SET COUNT TEMPORARILY AHEAD OF C.R. 

$ AHEAD OF C.R.?-YES- 

DEPOSIT 5 IDLE CODES 
RETURN TO PGM (217) 

TWO-DIGIT NUMBER AHEAD OF $ ?-YES—» 

CLEAR $,C.R.,00G4 
GO TO PRINT ROUTINE (326) 

I- - 

FORM DECIMAL EQUIVALENT 
FIND LINE 


(600) PRINT LINE 

(634) ALLOW CHANGE 

-DONE?- 


FILL UNUSED LOC'S. 

I 


NO- 


OVERFLOW THE LINE ?—NO 
WAIT FOR C.R. 

■♦RETURN TO PGM (217) 


3 


Figure 1. Continued. This portion of the chart covers the 
backspace correction and line correction routines. 
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PROGRAM LISTING: IBM EDITOR 


TLSIBM=6416 PT08 INSTRUCTIONS, MNEMONICS ARE ARBITRARY 
TSFIBM=6411 
KCCIBM=64j02 
KRBIBM=6406 
KSFIBM-6401 
*0001 


0001 

0075 

IDLE, 

0075 

TERMINAL "IDLE" CODE 

0002 

7764 

MS, 

7764 

COUNTER FOR INITIAL PROMPT ("PROCEED") 

0003 

7764 

RMS, 

7764 

0004 

0031 

o . 

0031 

TERMINAL "O" CODE 

0005 

0017 

MASK, 

0017 

USED TO READ DIGITS FROM TERMINAL 

0006 

0155 

RET, 

0155 

TERMINAL CARRIAGE RETURN CODE 

0007 

7623 

MCR, 

*0020 

7623 

COMPLEMENT OF CARRIAGE RETURN CODE 

0020 

1000 

POINT, 

1000 

INDICATES LOCATIONS WHERE CHARACTERS ARE STORED 

0021 

1000 

RPOINT, 

1000 


0022 

2000 

BUFF, 

2000 

COMPLEMENT OF BUFFER SIZE (1000g-7000 8 ) IN CORE 

0022 

2000 

RBUFF, 

2000 

0024 

0000 

PPOINT, 

0000 

POINTER USED IN PRINT ROUTINE 

0025 

0000 

TEMP, 

0000 

TEMPORARY STORAGE LOCATION 

0026 

0000 

COUNT, 

0000 

COUNTER FOR INPUT CHARACTERS 

0027 

0000 

XCOUNT 

; 0000 

COUNTER FOR PRINTING 

0030 

7777 

Ml, 

7777 

-1 

0031 

7776 

M2, 

7776 

-2 

0022 

7775 

M3, 

7775 

-3 

0032 

7772 

M6, 

7772 

-6 

0034 

7772 

RM6, 

7772 


0035 

0060 

DIGIT, 

0060 

POINTER FOR OCTAL/DECIMAL CONVERSION 

0036 

0060 

RDIGIT, 

0060 

0037 

0000 

DIGIT!, 

0000 

STORAGE FOR DIGIT 

0040 

0000 

DIGIT2, 

0000 

STORAGE FOR DIGIT 

0041 

0000 

SLO, 

0000 

USED IN DELAY LOOPS 

0042 

7764 

WAIT, 

7764 

USED IN DELAY LOOPS 

0043 

7764 

RWAIT, 

7764 


0044 

0000 

LINE, 

0000 

LINE COUNTER 

0045 

0741 

SI, 

STATE1 

"PROCEED" STATEMENT POINTER 

0046 

0741 

RSI, 

STATE1 


0047 

0717 

RESET, 

PUTBAC 

INDIRECT ADDRESS 

0050 

0230 

BKSP, 

CORR 

INDIRECT ADDRESS 

0051 

0400 

CR, 

CARR 

INDIRECT ADDRESS 

0052 

0326 

PRINT, 

PUT 

INDIRECT ADDRESS 

0053 

0217 

NEXT, 

CH 

INDIRECT ADDRESS 

0054 

0276 

OVFLW, 

OVER 

INDIRECT ADDRESS 

0055 

0174 

EOT, 

,0174 

END OF TRANSMISSION-UNLOCKS KEYBOARD 


c 
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J01056 

0064 

BET, 

0064 BEGIN TRANSMISSION 

0057 

7613 

MDOLAR, 

7613 

COMPLEMENT OF $ CHARACTER 

0060 

7654 

MZERO, 

7654 

COMPLEMENT OF 0 CHARACTER 

0061 

7740 

MONE, 

7740 COMPLEMENT OF 1 CHARACTER 

0062 

7760 

MTWO, 

7760 COMPLEMENT OF 2 CHARACTER 

0063 

7620 

MTHREE, 

7620 COMPLEMENT OF 3 

0064 

7770 

MFOUR, 

7770 COMPLEMENT OF 4 

0065 

7630 

MFIVE, 

7630 COMPLEMENT OF 5 

0066 

7650 

MS IX, 

7650 COMPLEMENT OF 6 

0067 

7710 

MSEVEN, 

7710 COMPLEMENT OF 7 

0070 

7774 

MEIGHT, 

7774 

COMPLEMENT OF 8 

0071 

7634 

MNINE, 

7634 

COMPLEMENT OF 9 

0072 

7604 

MEOT, 

7604 COMPLEMENT OF EOT 

0073 

7714 

M064, 

7714 

COMPLEMENT OF BET (NEW LINE) 

0074 

7721 

MTAB, 

7721 

COMPLEMENT OF TAB 

0075 

7643 

MBKSP, 

7643 

COMPLEMENT OF BACKSPACE 

0076 

7744 

MUC, 

7744 

COMPLEMENT OF UPPER-CASE COMMAND 

0077 

7741 

MIC, 

7741 

COMPLEMENT OF LOWER-CASE COMMAND 

0100 

7402 

TEST, HLT 


"TEST" ROUTINE: 

0101 

1420 

TAD 1 POINT 


LOOK AT CURRENT CHARACTER 

0102 

1075 

TAD MBKSP 


IS IT A BACKSPACE? 

0103 

7650 

SNA CLA 



0104 

5450 

JMP 1 BKSP 


YES, GO TO BACKSPACE ROUTINE 

0105 

1420 

TAD 1 POINT 


LOOK AGAIN 

0106 

1072 

TAD MEOT 


IS IT A CARRIAGE RETURN? 

0107 

7650 

SNA CLA 



0110 

5451 

JMP 1 CR 


YES, GO TO CARRIAGE RETURN ROUTINE 

0111 

2020 

ISZ POINT 


NO, INCREMENT POINTER FOR NEXT CHARACTER 

0112 

2026 

ISZ COUNT 


AND COUNTER 

0113 

2022 

ISZ BUFF 


AND BUFFER 

0114 

5500 

JMP 1 TEST 


AND RETURN TO GET NEW CHARACTER (CH) 

0115 

5454 

JMP 1 OVFLW 

IF BUFFER EXCEEDS 3000. n CHARACTERS, GO TO OVFLW 
"SET" ROUTINE: 

0116 

7402 

SET, HLT 


0117 

1020 

TAD POINT 


SUBTRACT 1 FROM POINTER 

0120 

1030 

TAD Ml 



0121 

3020 

DCA POINT 



0122 

1026 

TAD COUNT 


COUNTER 

0123 

1030 

TAD Ml 



0124 

3026 

DCA COUNT 



0125 

1022 

TAD BUFF 


AND BUFFER 

0126 

1030 

TAD Ml 



0127 

3022 

DCA BUFF 



0130 

5516 

JMP 1 SET 


AND RETURN TO PROGRAM 

0131 

7000 

DELAY, NOP 

DELAY: USED AFTER TABS AND CARRIAGE 

0132 

7300 

CLA CLL 


RETURNS 

0133 

1043 

TAD RWAIT 



0134 

3042 

DCA WAIT 



0135 

2041 

ISZ SLO 



0136 

5135 

JMP .-1 



0137 

2042 

ISZ WAIT 
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0140 

5135 

JMP .-3 


J0141 

5531 

JMP 1 DELAY 


0142 

7402 

OUT, HLT 

"OUT" ROUTINE: 

0143 

6416 

TLSIBM 

CHARACTER IS IN ACCUMULATOR. PRINT IT 

0144 

6411 

TSFIBM 


0145 

5144 

JMP .-1 


0146 

7000 

NOP 


0147 

7000 

NOP 


0150 

5542 

JMP 1 OUT 

AND RETURN TO PROGRAM 

0151 

7000 

IN, NOP 

"IN" ROUTINE: 

0152 

6401 

KSFIBM 


0153 

5152 

JMP .-1 


0154 

6406 

KRBIBM 

PICK UP CHARACTER 

0155 

5551 

JMP 1 IN 

AND RETURN TO PROGRAM 

0156 

7000 

UPDATE, NOP 

"UPDATE" ROUTINE: 

0157 

7300 

CLA CLL 

FILLS A GIVEN LOCATION WITH AN 

0160 

1001 

TAD IDLE 

"IDLE" CODE. INCREMENTS THE 

0161 

3420 

DCA 1 POINT 

POINTER, COUNTER, AND BUFFER, AND 

0162 

2020 

ISZ POINT 

CHECKS FOR OVERFLOW. 

0163 

2026 

ISZ COUNT 


0164 

2022 

ISZ BUFF 


0165 

5556 

JMP 1 UPDATE 


0166 

5454 

JMP 1 OVFLW 


0167 

7000 

TOUT, NOP 

TTY OUTPUT: FOR PUNCHED PAPER TAPE 

0170 

7300 

CLA CLL 

OUTPUT OF THE TEXT. 

0171 

6041 

TSF 


0172 

5171 

JMP .-1 


0173 

1424 

TAD 1 PPOINT 


0174 

6046 

TLS 


0175 

7300 

CLA CLL 


0176 

5567 

JMP 1 TOUT 






*0200 


0200 

7300 

START, CLA CLL 


0201 

4447 

JMS 1 RESET 

RESTORE COUNTERS, ETC. 

0202 

6402 

KCCIBM 

CLEAR PT08 FLAG 

0203 

4151 

LOOK, JMS IN 

GET A CHARACTER 

0204 

1072 

TAD MEOT 

IS IT A CARRIAGE RETURN? (EOT?) 

0205 

7650 

SNA CLA 


0206 

5210 

JMP .+2 

YES, GO TO 210 

0207 

5203 

JMPLOOK 

NO, LOOK AGAIN 

0210 

4131 

JMS DELAY 

DELAY AFTER FINDING EOT 

0211 

7300 

PROMPT, CLA CLL 


0212 

1445 

TAD 1 SI 

PROMPT THE USER: "PROCEED" 

0213 

4142 

JMS OUT 


0214 

2045 

ISZ SI 


0215 

2002 

ISZ MS 


0216 

5211 

JMP PROMPT 


0217 

7300 

CH, CLA CLL 

UNLOCK THE KEYBOARD 

0220 

4131 

JMS DELAY 

(I.E., DELAY AFTER PRINTING "PROCEED" AND THEN 

0221 

1055 

TAD EOT 

SEND AN EOT CODE.) 

0222 

4142 

JMS OUT 


0223 

7300 

GET, CLA CLL 

GET A CHARACTER 

0224 

4151 

JMS IN 


0225 

34^0 

DC A 1 POINT 

STORE IN COREe PLACE INDICATED BY POINT VALUE 

0226 

4100 

JMS TEST 

TEST THE CHARACTER 

0227 

5223 

JMP GET 

CHTR NOT BACKSPACE OR C. RETURN, SO GET NEXT CHTR 

0230 

7300 

CORR, CLA CLL 

ARRIVE HERE IF BACKSPACE HAS BEEN ENCOUNTERED 

0231 

3420 

DCA 1 POINT 

CLEAR BACKSPACE FROM BUFFER 

0232 

4116 

JMS SET 

SET POINTERS, ETC., BACK ONE PLACE 

0233 

7300 

CLA CLL 


0234 

1420 

TAD 1 POINT 

LOOK AT THIS CHARACTER (AHEAD OF BACKSPACE) 

0235 

1077 

TAD MLC 

IS IT A LOWER-CASE COMMAND? 

0236 

7650 

SNA CLA 

• 

0237 

5263 

JMPX2 

IF SO, GO TO XI 

0240 

1420 

TAD 1 POINT 

LOOK AGAIN 

0241 

1076 

TAD MUC 

IS IT AN UPPER-CASE COMMAND? 

0242 

7650 

SNA CLA 


0243 

5260 

JMP XI 

IF SO, GO TO XI 

0244 

1420 

TAD 1 POINT 

LOOK AGAIN 

0245 

1073 

TAD M064 

IS IT THE START OF A NEW LINE? 

0246 

7650 

SNA CLA 


0247 

5267 

JMP XIA 

IF SO, GO TO XIA 

0250 

1020 

TAD POINT 

LOOK TWO PLACES AHEAD OF BACKSPACE 

0251 

1030 

TAD Ml 


0252 

3025 

DCA TEMP 


0253 

1425 

TAD 1 TEMP 


0254 

1076 

TAD MUC 

IS IT AN UPPER-CASE COMMAND? 

0255 

7650 

SNA CLA 
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J0256 

5260 


0257 

5223 


0260 

7300 


026 1 

4116 


0262 

5223 


0263 

7300 


0264 

4116 


0265 

4116 


0266 

5223 


0267 

7300 


0270 

4116 


0271 

2033 


0272 

5267 


0273 

1034 


0274 

3033 

• 

0275 

5223 

0276 

7300 


0277 

4151 


0300 

1072 


0301 

7650 


0302 

5304 


0303 

5276 


0304 

4131 


0305 

7300 


0306 

1056 


0307 

4142 


0310 

7300 


0311 

1004 


0312 

4142 


0313 

7300 


0314 

4131 


0315 

7300 

• 

0316 

1055 


0317 

4142 


0320 

7300 


0321 

4151 


0322 

1072 


0323 

7650 


0324 

5452 


0325 

5320 


0326 

7300 


0327 

1026 


0330 

7041 


0331 

3027 


0332 

1021 


0333 

3024 


0334 

4131 


0335 

1056 


0336 

4142 


0337 

7300 


JMPX1 
JMP GET 
XI, CLA CLL 
JMS SET 
JMP GET 
X2, CLA CLL 
JMS SET 
JMS SET 
JMP GET 
X1A, CLA CLL 
JMS SET 
ISZ M6 
JMPX1A 
TAD RM6 
DCA M6 
JMP GET 
OVER, CLA CLL 
JMS IN 
TAD MEOT 
SNA CLA 
JMP .+2 
JMP OVER 
JMS DELAY 
CLA CLL 
TAD BET 
JMS OUT 
CLA CLL 
TAD O 
JMS OUT 
CLA CLL 
JMS DELAY 
CLA CLL 
TAD EOT 
JMS OUT 
NEW, CLA CLL 
JMS IN 
TAD MEOT 
SNA CLA 
JMP I PRINT 
JMP NEW 
PUT, CLA CLL 
TAD COUNT 
CMA IAC 
DCA XCOUNT 
TAD RPOINT 
DCA PPOINT 
JMS DELAY 
TAD BET 
JMS OUT 
PUTL, CLA CLL 


IF SO, GO TO XI 

IF NONE OF THESE, J0232 CLEARED CHARACTER, SO RETURN 
CLEAR THE UC COMMAND 


CLEAR THE PRINTED CHARACTER AHEAD OF THE LC 
AND CLEAR THE UC COMMAND AHEAD OF THE CHARACTER 


CLEAR THE 5 IDLE CODES PLACED AT THE END OF THE LINE 
AND THE CARRIAGE RETURN CODE. POINTER IS NOW SET 
AFTER THE LAST CHARACTER ON THE PRECEDING LINE. 


OVERFLOW ROUTINE: 

GET A CHARACTER 

IS AN A CARRIAGE RETURN (END OF TRANSMISSION?) 

YES, GO TO 304 
NO, LOOK AGAIN 
EOT FOUND, SO DELAY 

SEND A BEGIN TRANSMISSION CODE 


AND THE PROMPT "O" (FOR OVERFLOW) TO TERMINAL 


DELAY 

SEND EOT TO UNLOCK KEYBOARD 


AND LOOK FOR A CHARACTER FROM KEYBOARD 
IS IT A CARRIAGE RETURN? 

YES, PRINT ENTIRE BUFFER CONTENTS 

NO, LOOK AGAIN _ 

PRINTING ROUTINE 

TAKE COUNT VALUE AND 
FORM TWO'S COMPLEMENT 

PUT STARTING "POINT" VALUE INTO 
PPOINT 

DELAY (BEFORE STARTING TO PRINT) 

SEND A BEGIN TRANSMISSION CODE 

PRINT THE BUFFER 
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0340 

1424 

TAD 1 PPOINT 

TAKE CHARACTER 

0341 

1073 

TAD M064 

IS IT AN 0064 (NEW LINE) CODE? 

0342 

7650 

SNA CLA 


0343 

5362 

JMPPUTUP 

IF SO, DO NOT PRINT IT 

0344 

1424 

TAD 1 PPOINT 

IF NOT, PRINT IT AFTER ASKING THREE QUESTIONS— 

0345 

1007 

TAD MCR 

(IS IT A CARRIAGE RETURN?) 

0346 

7650 

SNA CLA 


0347 

5367 

JMP OUTSLO 

(IF SO, DELAY AFTER PRINTING TO ALLOW TRAVEL) 

0350 

1424 

TAD 1 PPOINT 


0351 

1074 

TAD MTAB 

(IS IT A TAB?) 

0352 

7650 

SNA CLA 


0353 

5367 

JMP OUTSLO 

(IF SO, DELAY TO ALLOW TRAVEL OF MECHANISM) 

0354 

7604 

LAS 

LOOK AT SWITCH REGISTER 

0355 

7010 

RAR 


0356 

7630 

SZL CLA 

DOES BIT 11 = 1? 

0357 

4167 

JMS TOUT 

IF SO, PUNCH CHARACTER ON TTY 

0360 

1424 

TAD 1 PPOINT 


0361 

4142 

JMS OUT 

OTHERWISE, JUST PRINT IT 

0362 

2024 

PUTUP, ISZ PPOINT UPDATE THE PRINTING POINTER 

0363 

2027 

ISZ XCOUNT 

AND COUNTER, DONE? 

0364 

5337 

JMP PUTL 

NO, RETURN 

0365 

7300 

CLA CLL 

YES, 

0366 

5217 

JMP CH 

UNLOCK KEYBOARD-RETURN TO CH (NEW CHARACTER) 

0367 

7604 

OUTSLO, LAS 

DELAY ROUTINE FOR TABS AND CARRIAGE RETURNS. 

0370 

7010 

RAR 

DELAY TIME WAS EMPIRICALLY DETERMINED TO ALLOW 

0371 

7630 

SZL CLA 

ABOUT 15" OF CARRIAGE TRAVEL ON THE TYPEWRITER. 

0372 

4167 

JMS TOUT 


0373 

1424 

TAD 1 PPOINT 


0374 

4142 

JMS OUT 


0375 

4131 

JMS DELAY 


0376 

4131 

JMS DELAY 


0377 

5362 

JMP PUTUP 
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*0400 



0400 

7300 

CARR, CLA CLL 

FOUND A CARRIAGE RETURN 


040 ] 

3420 

DCA 1 POINT 

CLEAR OUT EOT CODE FOLLOWING CARRIAGE RETURN 


0402 

1020 

TAD POINT 



0403 

1031 

TAD M2 

TEMPORARILY SET POINTER TWO PLACES AHEAD OF EOT 


0404 

3025 

DCA TEMP 



0405 

1425 

TAD 1 TEMP 

LOOK AT THIS CHARACTER 


0406 

1057 

TAD MDOLAR 

IS IT A $ CODE? 


0407 

7650 

SNA CLA 



0410 

5217 

JMP .+7 

YES, JMP TO 417. 


0411 

4156 

JMS UPDATE 

NO, DEPOSIT AN IDLE CODE AFTER CR 


0412 

4156 

JMS UPDATE 

AND ANOTHER 


0413 

4156 

JMS UPDATE 

ANOTHER 


,0414 

4156 

JMS UPDATE 

ANOTHER 


,0415 

4156 

JMS UPDATE 

AND ONE MORE FOR A TOTAL OF FIVE 


,0416 

5453 

JMP 1 NEXT 

AND GO GET A NEW CHARACTER 

• 

,0417 

1025 

TAD TEMP 

SET POINTER AHEAD OF THE $ 


0420 

1031 

TAD M2 

BY TWO PLACES 


0421 

3025 

DCA TEMP 



0422 

7300 

CLA CLL 



0423 

1425 

TAD 1 TEMP 

TAKE THIS CHARACTER 


0424 

7010 

RAR 



0425 

7430 

SZL 

IS IT A DIGIT (0 THROUGH 9 FROM TERMINAL)? 


0426 

5233 

JMP .+5 



0427 

7010 

RAR 



0430 

7430 

SZL 



0431 

5233 

JMP .+2 

NOT A DIGIT, JMP TWO PLACES AHEAD 


0432 

5240 

JMP .+6 



0433 

7300 

CLA CLL 



0434 

4116 

JMS SET 

NO DIGIT, SO CLEAR CARRIAGE RETURN 


0435 

4116 

JMS SET 

THE NEW LINE CODE, AND 


0436 

4116 

JMS SET 

THE EOT CODE, AND 

A 

0437 

5452 

JMP 1 PRINT 

GO TO THE PRINT ROUTINE 

9 

0440 

7300 

CLA CLL 

FOUND DIGITS AHEAD OF THE $ CODE 


0441 

1425 

TAD 1 TEMP 



0442 

3037 

DCA DIGIT1 

DEPOSIT FIRST DIGIT 


0443 

3425 

DCA 1 TEMP 

CLEAR BUFFER OF THIS DIGIT 


0444 

2025 

ISZ TEMP 



0445 

1425 

TAD 1 TEMP 



0446 

3040 

DCA DIGIT2 

DEPOSIT SECOND DIGIT 


0447 

3425 

DCA 1 TEMP 

CLEAR BUFFER OF THIS DIGIT 


0450 

2025 

ISZ TEMP 



0451 

3425 

DCA 1 TEMP 

THE $ IS CLEARED FROM BUFFER 


0452 

2025 

ISZ TEMP 



0453 

3425 

DCA 1 TEMP 

AND THE CARRIAGE RETURN CODE IS CLEARED 


0454 

4116 

JMS SET 



0455 

4116 

JMS SET 



0456 

4116 

JMS SET 



0457 

4116 

JMS SET 



0460 

4116 

JMS SET 
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0461 

1037 

SEARCH, TAD DIGIT! FIND APPROPRIATE LINE FOR CORRECTION: 

0462 

1435 

TAD 1 DIGIT 

TAKE DIGIT1, COMPARE IT TO LOOKUP TABLE 

0463 

7650 

SNA CLA 


0464 

5267 

JMP FIND1 

FOUND? YES—GO TO FIND1 

0465 

2035 

ISZ DIGIT 

NO, LOOK AGAIN 

0466 

5261 

JMP SEARCH 


0467 

7300 

FIND1, CLA CLL 

FOUND 1st DIGIT IN LOOKUP TABLE 

0470 

1035 

TAD DIGIT 


0471 

0005 

AND MASK 


0472 

7040 

CMA 


0473 

3037 

DCA DIGIT1 

FORM COUNTER, AND PUT INTO DIGIT1 

0474 

1036 

TAD RDIGIT 


0475 

3035 

DCA DIGIT 


0476 

7300 

SEARC2, CLA CLL 

DO SAME FOR DIGIT2 

0477 

1040 

TAD DIGIT2 


0500 

1435 

TAD 1 DIGIT 


0501 

7650 

SNA CLA 


0502 

5305 

JMP FIND2 


0503 

2035 

ISZ DIGIT 


0504 

5276 

JMP SEARC2 


0505 

7300 

FIND2, CLA CLL 


0506 

1035 

TAD DIGIT 


0507 

0005 

AND MASK 


0510 

7040 

CMA 


0511 

3040 

DCA DIGIT2 


0512 

1036 

TAD RDIGIT 


0513 

3035 

DCA DIGIT 


0514 

3044 

DCA LINE 


0515 

7300 

LINECT, CLA CLL 

BOTH DIGITS FORMED AS COUNTERS 

0516 

2037 

ISZ DIGIT1 

INCREMENT DIGIT1, DONE? 

0517 

5321 

JMP .+2 

NO, SKIP NEXT INSTRUCTION 

0520 

5336 

JMP XLINEC 

YES, GO TO 536 

0521 

1044 

TAD LINE 

TAKE LINE VALUE AND 

0522 

7001 

IAC 

INCREMENT IT 

0523 

7001 

IAC 

TEN TIMES 

0524 

7001 

IAC 

FOR EACH 

0525 

7001 

IAC 

INTEGER VALUE 

0526 

7001 

IAC 

OF DIGIT1 

0527 

7001 

IAC 


0530 

7001 

IAC 


0531 

7001 

IAC 


0532 

7001 

IAC 


0533 

7001 

IAC 


0534 

3044 

DCA LINE 


0535 

5315 

JMP LINECT 

NOT FINISHED, INCREMENT DIGIT1 AGAIN 

0536 

7300 

XLINEC, CLA CLL DO THE SAME FOR DIGIT2, EXCEPT INCREMENT 

0537 

2040 

ISZ DIGIT2 

LINECOUNTER ONCE FOR EACH INTEGER VALUE 

0540 

5342 

JMP .+2 

OF DIGIT2. 


* 
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0541 5346 
0542 1044 
0543 7001 
0544 3044 
0545 5336 
0546 1021 
0547 3025 
0550 7300 
055 1 1044 
0552 7040 
0553 7001 
,0554 3044 
0555 7300 
0556 1425 
0557 1073 
0560 7650 
0561 5364 
J0562 2025 
0563 5355 
0564 2025 
0565 2044 
0566 5355 
0567 1025 
0570 1030 
0571 3025 
0572 4131 
0573 5774 
0574 0600 


JMP LINEST 
TAD LINE 
IAC 

DCA LINE 
JMP XLINEC 
LINEST, TAD RPOINT 


FINISHED, PUT STARTING VALUE FOR POINTER IN 


DCA TEMP 
LINEL, CLA CLL 
TAD LINE 
CMA 
IAC 

DCA LINE 
LINELX, CLA CLL 
TAD I TEMP 
TAD M064 
SNA CLA 
JMP .+3 
ISZ TEMP 
JMP LINELX 
ISZ TEMP 
ISZ LINE 
JMP LINELX 
TAD TEMP 
TAD Ml 
DCA TEMP 
JMS DELAY 
JMP l.+l 
ROUT, 0600 


TEMPORARY LOCATION 
COMPLEMENT THE LINE COUNTER. 


LOOK AT EVERY BUFFER CHARACTER. 

IS THIS CHARACTER A "NEW LINE" CODE? 


NO, PICKUP NEXT CHARACTER 

YES, INCREMENT LINE COUNTER, DONE? 
NO, PICKUP NEXT CHARACTER 
YES, SET TEMP BACK ONE PLACE. 


DELAY 


AND GO TO THE SPECIAL PRINTING ROUTINE. 
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0600 
060 1 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 


7300 

1425 

1007 

7650 

5212 

1425 

4142 

7300 

2025 

5200 

7300 

1425 

4142 

7300 

1425 

1073 

7650 

5226 

1025 

1030 

3025 

5216 

7300 

1055 

4142 

4131 

7300 

5241 

7300 

1425 

1073 

7650 

5275 

4151 

3425 

1425 

1072 

7650 

5263 

1425 

1075 

7650 

5255 

2025 

5234 

7300 

3425 

1025 


*0600 

OUTX, cla cll 
TAD I TEMP 
TAD MCR 
SNA CLA 
JMP FINIS 
TAD I TEMP 
JMS OUT 
CLA CLL 
ISZ TEMP 
JMP OUTX 
FINIS, CLA CLL 
TAD I TEMP 
JMS OUT 
CLA CLL 
TAD I TEMP 
TAD M064 
SNA CLA 
JMP .+5 
TAD TEMP 
TAD Ml 
DCA TEMP 
JMP .-7 
CLA CLL 
TAD EOT 
JMS OUT 
JMS DELAY 
CLA CLL 
JMP .+6 


PRINTING ROUTINE FOR CORRECTIONS 

TAKE CHARACTER 

IS IT THE END OF THE LINE? 

YES, GO TO 612 
NO, PRINT CHARACTER 


INCREMENT THE TEMPORARY POINTER 
AND GO GET NEXT CHARACTER 
FOUND CARRIAGE RETURN 
PRINT IT 

NOW, BACK UP THE TEMPORARY POINTER 
TO THE "NEW LINE" CODE (0064) WHICH 
DEFINED THE START OF THIS LINE. 


WHEN FOUND, 

SEND EOT TO TERMINAL, UNLOCKING KEYBOARD 
AND DELAY 


CHANGE, CLA CLL 


PICK UP CHARACTER TO BE REPLACED IN BUFFER 
IS IT THE START OF THE NEXT LINE? 

IF SO, GO TO 675 

IF NOT, GET A CHARACTER TO REPLACE THIS ONE 
AND PUT IT IN BUFFER Q PLACE INDICATED BY TEMP 

IS THIS A CARRIAGE RETURN? 

IF SO, GO TO 663 

IF NOT, IS IT A BACKSPACE? 


TAD I TEMP 
TAD M064 
SNA CLA 
JMP EOL 
JMS IN 
DCA I TEMP 
TAD I TEMP 
TAD MEOT 
SNA CLA 
JMP SEOL 
TAD I TEMP 
TAD MBKSP 
SNA CLA 
JMP CHBKSP 

ISZ TEMP IF NOT, STORE CHARACTER, AND 

JMP CHANGE GO GET NEXT CHARACTER 

CHBKSP, CLA CLL BACKSPACE ENCOUNTERED DURING CORRECTION, 
DCA I TEMP SO CLEAR BACKSPACE FROM BUFFER 

TAD TEMP AND SET POINTER BACK ONE PLACE 


14 





9 


/ 

0660 

1030 

TAD Ml 


} 

0661 

3025 

DCA TEMP 



0662 

5234 

JMPCHANGE 

AND GO GET NEXT CHARACTER 


0663 

3425 

SEOL, DCA 1 TEMP CARRIAGE RETURN ENCOUNTERED, CLEAR THE EOT CODE 


0664 

2,025 

SZ, ISZTEMP 

INCREMENT THE TEMPORARY POINTER 


0665 

1425 

TAD 1 TEMP 



0666 

1073 

TAD M064 

IS THIS LOCATION = TO START OF NEXT LINE? 


0667 

7650 

SNA CLA 



0670 

5274 

JMP .+4 



0671 

1001 

TAD IDLE 

IF NOT, PUT AN IDLE CODE IN THE LOCATION 


0672 

3425 

DCA 1 TEMP 



0673 

5264 

JMP SZ 

AND LOOK AGAIN FOR THE START OF THE NEXT LINE 


0674 

5453 

GO, JMP 1 NEXT 

NEXT LINE FOUND, RETURN TO PROGRAM (CH) 


0675 

7300 

EOL, CLA CLL 

USER TRIED TO ADD MORE THAN FIVE CHARACTERS TO 


0676 

4151 

JMS IN 

THE LINE, WAIT FOR 


0677 

1072 

TAD MEOT 

A CARRIAGE RETURN (EOT) CODE 


0700 

7650 

SNA CLA 


• 

0701 

5303 

JMP .+2 



0702 

5275 

JMP EOL 



0703 

1025 

TAD TEMP 

WHEN FOUND, PUT THE CARRIAGE RETURN 


0704 

1030 

TAD Ml 

IN LAST AVAILABLE LOCATION FOR THIS 


0705 

3025 

DCA TEMP 

LINE, TRUNCATING IT TO MAXIMUM PERMISSIBLE LENGTH 


0706 

1006 

TAD RET 



0707 

3425 

DCA 1 TEMP 



0710 

5453 

JMP 1 NEXT 

AND RETURN TO PROGRAM (CH) 


0711 

7000 

NOP 



0712 

7000 

NOP 



0713 

7000 

NOP 



0714 

7000 

NOP 



0715 

7000 

NOP 



0716 

7000 

NOP 



0717 

7000 

PUTBAC, NOP 

RESTORING ROUTINE SETS POINTERS, COUNTERS, 


0720 

7300 

CLA CLL 

ETC., BACK TO APPROPRIATE STARTING VALUES. 

• 

0721 

1021 

TAD RPOINT 



0722 

3020 

DCA POINT 



0723 

1023 

TAD RBUFF 



0724 

3022 

DCA BUFF 



0725 

1046 

TAD RSI 



0726 

3045 

DCA SI 



0727 

1003 

TAD RMS 



0730 

3002 

DCA MS 



0731 

3026 

DCA COUNT 



0732 

3027 

DCA XCOUNT 



0733 

1036 

TAD RDIGIT 



0734 

3035 

DCA DIGIT 



0735 

1034 

TAD RM6 



0736 

3033 

DCA M6 
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0737 

6046 

TLS 


0740 

5717 

JMP 1 PUTBAC 


0741 

0064 

STATE!, 0064 

(BET) LOOKUP TABLE FOR INITIAL PROMPT TO USER 

0742 

0155 

0155 

(CR) 

0743 

0034 

00§4 

(UC) 

0744 

0171 

0171 

(P) 

0745 

0045 

0045 

(R) 

0746 

0031 

0031 

(O) 

0747 

0163 

0163 

(C) 

0750 

0153 

0153 

(E) 

0751 

0153 

0153 

(E) 

0752 

0013 

0013 

(D) 

0753 

0155 

0155 

(CR) 

0754 

0075 

0075 

(IDLE) 






